home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_08_1985_Transactor_Publishing.d64 / blks free-1541 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  212b  |  11 lines
  1. 5 rem* read blocks free-1541
  2. 6 :
  3. 10 lo=250: hi=2: rem $02fa-$02fd
  4. 20 z$=chr$(0)
  5. 30 open 15,8,15
  6. 40 print#15,"m-r"chr$(lo)chr$(hi)chr$(4)
  7. 50 get#15,l0$,l1$,h0$,h1$
  8. 60 f0=asc(l0$+z$)+256*asc(h0$+z$)
  9. 70 print"blocks free:"f0
  10. 80 close 15
  11.